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Procedure Init 

called when node i initializes itself 
begin 

A r ^- i 

Dj <- O 

s i * 

p\^IP_LOCALHOST 
tag\ <— correct 
Tf <— present time 
end 

Procedure Recv_CU_Packet(pfcf, nbr) 

when node i receives a control packet from nbr 

begin 

if (pkt.type = QtflO 
Query (pkt.nbr) 

else 

if (pjfcf.<faf = BDCAST_ADDR) 

Update (pkt,nbr) 
else 

if (pkt.dst e Wand tag l pktdst = correct) 
Update (pkt.nbr) 

end else 
end 

Procedure Add_Dest(J) 

called when node i learns of new destination,/' 

begin 

N<r-N\Jj 

Dj <r~ oo 

sj <r- NULL_ADDR 
Pj<r- NULL_ADDR 
Tj <r- present time 
for all (ke 
Dj k <-oo 

pj k <- NULL_ADDR 
end for all 
end 
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Procedure Rmv_Dest(y) 
called when node i removes j 
begin 

N<-N-j 

for all (A: e N t ) 

remove j from fc's array 

end for all 
end 

Procedure Add_Nbr(&) 

called when node i /earns of new neighbor k 

begin 

N f <r- N t U k 

for all (7 g AO 

pj k <r-NULL_ADDR 
end for all 
end 

Procedure Rmv_Nbr(fc) 

called when node i learns of loss of neighbor k 
begin 

Ni<-Ni-k 
for all (7 e N) 
tagj <— null 
send <r- FALSE 
RT_update(send) 
If (send = TRUE) 

Send_Update(/, BDCAST _ADDR) 

end 
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Procedure DT_Update(£J,i?zy rpj) 
updating distance table entry 
begin 

if (RDj <oo) 
Dj k ±-RDi+l 

else Dj k <— oo 

for all (b g N t ) 
if is in path from i to j via 6 

^ <- % + ^/ 
end for all 
end 
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Procedure Query(pkt,nbr) 
called for processing query 
begin 

for each entry (j, RD-, rpj) in pkt 
if (; <£ AO 
if (RDj =00) 
continue 
else 

Add_Dest(;') 
if (RDj=0) 
Add_Nbr(;) 
end else 
end if 
else 

if (RDj=0 and j* N t ) 
Add_Nbr(j) 
end else 

DT _Update( pkt, src, j, RDj, rpj) 
end for each 
send <- FALSE 
RT_Update(s£?id) 
if ( ta 8i>kt.dst= correct) 

S&nd_Upda.te(pkt.dst, pkt src) 
else 

if (present time - qr\, kt dst > query _recieve_timeout) 
if (pkt. hops > 1) 

Send_Query (pkt.dst, (pkt.hops - \),pkt.src) 
if (pkt.hops > 1) 

4^,^ ^present time 
end if 
end else 

end 



FIG. 6 



7/19 

Procedure Upda.te(pkt,nbr) 
called for processing update 
begin 

newpath <— F A L S E 
if {pkt.dst ^BD CAST _ADDR) 
if (pkt.src & N or tag^ ktsrc * correct) 
newpath <^ T R UE 
for each entry (j, RDj, rpfi in pkt 
if (jt AO 

if {RDj = oo) 

continue 
else 

Add_Dest(y) 
if (RDj =0) 
Add_Nbr(j) 
end else 
end if 
else 

if (RDj = 0 and je N t ) 
Add_Nbr(j) 
end else 

DT_Update(pkt.src, j, RDj, rpj) 
end for each 
send <- FALSE 
RT_Update(send) 

if (pkt.dst = BDCAST_ADDR) 

if (send =TRUE) then Send_Update(i, BDCAST_ADDR) 
else 

if (pkt.dst = z) 

if (send =TRUE) then Send_Update(7, BDCAST_ADDR) 
else 

if (newpath = TRU E and (pkt.src ^ Nor tagfa^ * correct)) 

newpath <r- FALS E 
if (tagi ktdst = correct and newpath = TRU E 

and pkt.src is not in the path to pkt.dst) 

Send_Update(pfcf. src, pkt.dst) 

else 

if (sewd) then Send_Update(z, BDCAST_ADDR) 
end else 
end else 
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Procedure RTJJpdateOercd) 
updating routing table entries 
begin 

for all (7 e AO 
if (7 = 0 

continue 
DTMin <- Min {Dj b e 
if (Dj s j = DTM in) then ns <- sj 

else ns <r- b\ {b e Af f and = DTMin} 

loop <r- F A L S E 

for(ra = 0;m<l AM;m ++) 

visited [m] <- N U L L _A D D R 
num_yisited <— 0 

while ({D xns = Af in { D xb Vb e /y. }) 

and < oo and tag x <- nw// and /cop = FA L S E) 
m*-0 

while (m < num_visited) 
if (visited [m]=xoix = i) 
loop<-TR UE 
end while 

* <- pLs 

end while 

if (/oop = F A L S E and (p xns = IP_LOCALHOST or tag x 

tag] <— correct 
else 

tag/ <— error 
if (tog/ = correct) 

if (D/ < DTMin) then 5m J <r-TRUE 

Dj <r- DTMin 

sj <— 7W 

if (D/= l)thenp/<-i 

else /?] /?/ 
end if 
end 

if (Dj =00) then send <^TRUE 
pj <— N U L L _A D D R 
sj <-NULL_ADDR 
Dj <-oo 
end else 
end for all 

end FIG. 8 
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Procedure Send_Update(src, dst) 

broadcasting update 

begin 

for each entry e (J , Dj, pj) in routing table 

LIST <— LIST + e 
sort all entries in LIST in ascending distance values 
add each entry in LIST to pkt 
pkt.dst <- dst 
pkt.src «- src 
pkt.type <- UPDATE 
broadcast pkt to all neighbors 
end 

Procedure Send_Query(*fesf, hops, src) 

broadcasting query 

begin 

for each entry e (j, Dj, pj) in routing table 

LIST <r- LIST + e 
sort all entries in LIST in ascending distance values 
add each entry in LIST to pkt 
pkt.dst <— dest 
pkt.src «— src 
pkt. hops <— hops 
pkt.type <- QUERY 
broadcast^ to all neighbors 
end 

Procedure Buffer_Timer_Callback() 

called periodically when buffer timer expires begin 

send <r- FALSE 

Check. BufferOercd) 

if (send = TRUE) then Send_Update(7, BDCAST.ADDR) 
end 
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Procedure Get_Route_For_Pkt(de.y/) 
decides if query needs to be sent and sends it 
begin 

If (((present time - qs^ est ) > query _send_timeout) 
and (hqsj= MAX_HOPS )) 
hqsj<r-ZERO 
zqsj<r- present time 
Send_Query(dest, 0, i) 

end if 

If (((present time - qs l dest ) > query _send_timeout) 
and (hqsj =ZERO) 

and (present time - zqsj) > ZQio_qry_send_timeout) 
hqsj<^MAX_HOPS 
qsj<r- present time 
qrj<r- present time 
Send_Query(tfa, MAX_HOPS, i) 
end if 
end if 
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Procedure Handle_Data_Pkt (pkt,nbr) 

data packet can be from an upper layer or a forwarded pkt from nbr 
begin 

If (pkt.dst = i) 

send packet to correct upper layer port 
else if (pkt.src = i) 
j <— pkt.dst 

if (j e N and tagj = correct) 

send pkt to sj 
else 

queue pkt in buffer 
Get_Route_For_Pkt (pkt.dst) 
end else 
end else if 
else 

j <— pkt.dst 
if(7 € AO 
if (n/?r = sj) 
Send_Update(i, BDCAST_ADDR) 
drop pfcf and return 
end if 

if (tagj=correct) 
send pfo to Sy 1 

else 

Send_Update(i, BDCAST_ADDR) 

drop 
end if 
else 

queue pkt in buffer 
Get_Route_For_Pkt (pkt.dst) 
end else 
end else 
end 
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Procedure Check_Buffer(sercd) 

checks buffer to forward or drop packets 

begin 

for each pkt in buffer 
if (time pkt has been in buffer > data __pkt_timeout) 
drop pkt 
return 
end if 

j <— pkt.dst 
if (pkt.src=i) 

if (j e TV aw J tag? = correct) 
send to s/ 

else 

Get_Route_For_Pkt(pfo. dtf) 
end if 
else 

if(;eA0 

if( tag 1 - — correct) 
send pkt to sj 
else 

send <- UE 
drop /?&f 
end else 
end if 
else 

Get_Route_For_PktO&r ■ dsf) 
end else 
end for each 
end 



FIG. 12 



13/19 




14/19 




15/19 




16/19 




17/19 



o 
o 




CO CD "sf CM O 

O O O O 



18/19 




19/19 





0) 

■9 CM 
E CM 

CM 



o o o o 

O O) CO N 

Sje>|3Bd bibq io e6B}ueoj9d 




sja>|0Bd iojiuoq jo jeqiunN s^oed !OJ»uoo jo jequinN 



